﻿Imports System
Imports System.Text
Imports System.Collections.Generic
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Microsoft.Data.Schema.UnitTesting
Imports Microsoft.Data.Schema.UnitTesting.Conditions

<TestClass()> _
Public Class procCreateAssemblyInfo
    Inherits DatabaseTestClass

    Sub New()
        InitializeComponent()
    End Sub

    <TestInitialize()> _
    Public Sub TestInitialize()
        InitializeTest()
    End Sub

    <TestCleanup()> _
    Public Sub TestCleanup()
        CleanupTest()
    End Sub



#Region "Designer support code"

    'NOTE: The following procedure is required by the Designer
    'It can be modified using the Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
    Dim UT000004_TestAction As Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(procCreateAssemblyInfo))
    Dim UT000003_ScalarValue_ExceptionID As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_AssemblyName As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_CompanyName As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_Copyright As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_Description As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_DirectoryPath As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_ProductName As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_StackTrace As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_Title As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_Trademark As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_Version As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000003_ScalarValue_WorkingSet As Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    Dim UT000004_PretestAction As Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    Dim UT000004_PosttestAction As Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    Me.UT000004Data = New Microsoft.Data.Schema.UnitTesting.DatabaseTestActions
    UT000004_TestAction = New Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    UT000003_ScalarValue_ExceptionID = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_AssemblyName = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_CompanyName = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_Copyright = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_Description = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_DirectoryPath = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_ProductName = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_StackTrace = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_Title = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_Trademark = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_Version = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000003_ScalarValue_WorkingSet = New Microsoft.Data.Schema.UnitTesting.Conditions.ScalarValueCondition
    UT000004_PretestAction = New Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    UT000004_PosttestAction = New Microsoft.Data.Schema.UnitTesting.DatabaseTestAction
    '
    'UT000004_TestAction
    '
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_ExceptionID)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_AssemblyName)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_CompanyName)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_Copyright)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_Description)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_DirectoryPath)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_ProductName)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_StackTrace)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_Title)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_Trademark)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_Version)
    UT000004_TestAction.Conditions.Add(UT000003_ScalarValue_WorkingSet)
    resources.ApplyResources(UT000004_TestAction, "UT000004_TestAction")
    '
    'UT000003_ScalarValue_ExceptionID
    '
    UT000003_ScalarValue_ExceptionID.ColumnNumber = 1
    UT000003_ScalarValue_ExceptionID.Enabled = True
    UT000003_ScalarValue_ExceptionID.ExpectedValue = "UT000004"
    UT000003_ScalarValue_ExceptionID.Name = "UT000003_ScalarValue_ExceptionID"
    UT000003_ScalarValue_ExceptionID.NullExpected = False
    UT000003_ScalarValue_ExceptionID.ResultSet = 1
    UT000003_ScalarValue_ExceptionID.RowNumber = 1
    '
    'UT000003_ScalarValue_AssemblyName
    '
    UT000003_ScalarValue_AssemblyName.ColumnNumber = 2
    UT000003_ScalarValue_AssemblyName.Enabled = True
    UT000003_ScalarValue_AssemblyName.ExpectedValue = "AssemblyName"
    UT000003_ScalarValue_AssemblyName.Name = "UT000003_ScalarValue_AssemblyName"
    UT000003_ScalarValue_AssemblyName.NullExpected = False
    UT000003_ScalarValue_AssemblyName.ResultSet = 1
    UT000003_ScalarValue_AssemblyName.RowNumber = 1
    '
    'UT000003_ScalarValue_CompanyName
    '
    UT000003_ScalarValue_CompanyName.ColumnNumber = 3
    UT000003_ScalarValue_CompanyName.Enabled = True
    UT000003_ScalarValue_CompanyName.ExpectedValue = "CompanyName"
    UT000003_ScalarValue_CompanyName.Name = "UT000003_ScalarValue_CompanyName"
    UT000003_ScalarValue_CompanyName.NullExpected = False
    UT000003_ScalarValue_CompanyName.ResultSet = 1
    UT000003_ScalarValue_CompanyName.RowNumber = 1
    '
    'UT000003_ScalarValue_Copyright
    '
    UT000003_ScalarValue_Copyright.ColumnNumber = 4
    UT000003_ScalarValue_Copyright.Enabled = True
    UT000003_ScalarValue_Copyright.ExpectedValue = "Copyright"
    UT000003_ScalarValue_Copyright.Name = "UT000003_ScalarValue_Copyright"
    UT000003_ScalarValue_Copyright.NullExpected = False
    UT000003_ScalarValue_Copyright.ResultSet = 1
    UT000003_ScalarValue_Copyright.RowNumber = 1
    '
    'UT000003_ScalarValue_Description
    '
    UT000003_ScalarValue_Description.ColumnNumber = 5
    UT000003_ScalarValue_Description.Enabled = True
    UT000003_ScalarValue_Description.ExpectedValue = "Description"
    UT000003_ScalarValue_Description.Name = "UT000003_ScalarValue_Description"
    UT000003_ScalarValue_Description.NullExpected = False
    UT000003_ScalarValue_Description.ResultSet = 1
    UT000003_ScalarValue_Description.RowNumber = 1
    '
    'UT000003_ScalarValue_DirectoryPath
    '
    UT000003_ScalarValue_DirectoryPath.ColumnNumber = 6
    UT000003_ScalarValue_DirectoryPath.Enabled = True
    UT000003_ScalarValue_DirectoryPath.ExpectedValue = "DirectoryPath"
    UT000003_ScalarValue_DirectoryPath.Name = "UT000003_ScalarValue_DirectoryPath"
    UT000003_ScalarValue_DirectoryPath.NullExpected = False
    UT000003_ScalarValue_DirectoryPath.ResultSet = 1
    UT000003_ScalarValue_DirectoryPath.RowNumber = 1
    '
    'UT000003_ScalarValue_ProductName
    '
    UT000003_ScalarValue_ProductName.ColumnNumber = 7
    UT000003_ScalarValue_ProductName.Enabled = True
    UT000003_ScalarValue_ProductName.ExpectedValue = "ProductName"
    UT000003_ScalarValue_ProductName.Name = "UT000003_ScalarValue_ProductName"
    UT000003_ScalarValue_ProductName.NullExpected = False
    UT000003_ScalarValue_ProductName.ResultSet = 1
    UT000003_ScalarValue_ProductName.RowNumber = 1
    '
    'UT000003_ScalarValue_StackTrace
    '
    UT000003_ScalarValue_StackTrace.ColumnNumber = 8
    UT000003_ScalarValue_StackTrace.Enabled = True
    UT000003_ScalarValue_StackTrace.ExpectedValue = "StackTrace"
    UT000003_ScalarValue_StackTrace.Name = "UT000003_ScalarValue_StackTrace"
    UT000003_ScalarValue_StackTrace.NullExpected = False
    UT000003_ScalarValue_StackTrace.ResultSet = 1
    UT000003_ScalarValue_StackTrace.RowNumber = 1
    '
    'UT000003_ScalarValue_Title
    '
    UT000003_ScalarValue_Title.ColumnNumber = 9
    UT000003_ScalarValue_Title.Enabled = True
    UT000003_ScalarValue_Title.ExpectedValue = "Title"
    UT000003_ScalarValue_Title.Name = "UT000003_ScalarValue_Title"
    UT000003_ScalarValue_Title.NullExpected = False
    UT000003_ScalarValue_Title.ResultSet = 1
    UT000003_ScalarValue_Title.RowNumber = 1
    '
    'UT000003_ScalarValue_Trademark
    '
    UT000003_ScalarValue_Trademark.ColumnNumber = 10
    UT000003_ScalarValue_Trademark.Enabled = True
    UT000003_ScalarValue_Trademark.ExpectedValue = "Trademark"
    UT000003_ScalarValue_Trademark.Name = "UT000003_ScalarValue_Trademark"
    UT000003_ScalarValue_Trademark.NullExpected = False
    UT000003_ScalarValue_Trademark.ResultSet = 1
    UT000003_ScalarValue_Trademark.RowNumber = 1
    '
    'UT000003_ScalarValue_Version
    '
    UT000003_ScalarValue_Version.ColumnNumber = 11
    UT000003_ScalarValue_Version.Enabled = True
    UT000003_ScalarValue_Version.ExpectedValue = "Version"
    UT000003_ScalarValue_Version.Name = "UT000003_ScalarValue_Version"
    UT000003_ScalarValue_Version.NullExpected = False
    UT000003_ScalarValue_Version.ResultSet = 1
    UT000003_ScalarValue_Version.RowNumber = 1
    '
    'UT000003_ScalarValue_WorkingSet
    '
    UT000003_ScalarValue_WorkingSet.ColumnNumber = 12
    UT000003_ScalarValue_WorkingSet.Enabled = True
    UT000003_ScalarValue_WorkingSet.ExpectedValue = "1"
    UT000003_ScalarValue_WorkingSet.Name = "UT000003_ScalarValue_WorkingSet"
    UT000003_ScalarValue_WorkingSet.NullExpected = False
    UT000003_ScalarValue_WorkingSet.ResultSet = 1
    UT000003_ScalarValue_WorkingSet.RowNumber = 1
    '
    'UT000004_PretestAction
    '
    resources.ApplyResources(UT000004_PretestAction, "UT000004_PretestAction")
    '
    'UT000004_PosttestAction
    '
    resources.ApplyResources(UT000004_PosttestAction, "UT000004_PosttestAction")
    '
    'UT000004Data
    '
    Me.UT000004Data.PosttestAction = UT000004_PosttestAction
    Me.UT000004Data.PretestAction = UT000004_PretestAction
    Me.UT000004Data.TestAction = UT000004_TestAction
  End Sub

#End Region

#Region "Additional test attributes"
  '
  ' You can use the following additional attributes as you write your tests:
  '
  ' Use ClassInitialize to run code before running the first test in the class
  ' <ClassInitialize()> Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
  ' End Sub
  '
  ' Use ClassCleanup to run code after all tests in a class have run
  ' <ClassCleanup()> Public Shared Sub MyClassCleanup()
  ' End Sub
  '
#End Region


  <TestMethod()> _
  Public Sub UT000004()
    Dim testActions As DatabaseTestActions = Me.UT000004Data
    'Execute the pre-test script
    '
    System.Diagnostics.Trace.WriteLineIf((Not (testActions.PretestAction) Is Nothing), "Executing pre-test script...")
    Dim pretestResults() As ExecutionResult = TestService.Execute(Me.PrivilegedContext, Me.PrivilegedContext, testActions.PretestAction)
    'Execute the test script
    '
    System.Diagnostics.Trace.WriteLineIf((Not (testActions.TestAction) Is Nothing), "Executing test script...")
    Dim testResults() As ExecutionResult = TestService.Execute(Me.ExecutionContext, Me.PrivilegedContext, testActions.TestAction)
    'Execute the post-test script
    '
    System.Diagnostics.Trace.WriteLineIf((Not (testActions.PosttestAction) Is Nothing), "Executing post-test script...")
    Dim posttestResults() As ExecutionResult = TestService.Execute(Me.PrivilegedContext, Me.PrivilegedContext, testActions.PosttestAction)
  End Sub
  Private UT000004Data As DatabaseTestActions
End Class

